home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 008 / egascr2.arc / WRITEDOT.SCR < prev    next >
Encoding:
Text File  |  1986-08-05  |  418 b   |  28 lines
  1. N WRITEDOT.COM
  2. A 100
  3. MOV    AX,0010    ; Set video mode
  4. INT    10    ;   to 16
  5. SUB    BH,BH    ; Page 0
  6. SUB    DX,DX    ; Row 0
  7. SUB    CX,CX    ; Column 0
  8. MOV    AL,01    ; Blue
  9. MOV    AH,0C    ; Write Dot
  10. INT    10
  11. INC    CX    ; Next Column
  12. CMP    CX,0280    ; See if 640
  13. JB    010B    ; If below, loop
  14. INC    DX    ; Next Row
  15. CMP    DX,015E    ; See if 350
  16. JB    0109    ; If below, loop
  17. MOV    AX,0003    ; Set video mode
  18. INT    10    ;   to 3
  19. INT    20    ; Terminate
  20.  
  21. R CX
  22. 26
  23. W
  24. Q
  25.  
  26.  
  27.  
  28.